home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / TRANSFRM / TRANSFRM.APP (.txt) next >
Encoding:
MS Visual FoxPro App  |  1998-05-26  |  101.5 KB  |  2,864 lines
  1. PLATFORM
  2. UNIQUEID
  3. TIMESTAMP
  4. CLASS
  5. CLASSLOC
  6. BASECLASS
  7. OBJNAME
  8. PARENT
  9. PROPERTIES
  10. PROTECTED
  11. METHODS
  12. OBJCODE
  13. RESERVED1
  14. RESERVED2
  15. RESERVED3
  16. RESERVED4
  17. RESERVED5
  18. RESERVED6
  19. RESERVED7
  20. RESERVED8
  21.  COMMENT Class               
  22.  WINDOWS _R5V01PDLW 528745973
  23.  COMMENT FONTINFO            
  24.  WINDOWS _R5W0C0O02 528821389
  25.  COMMENT FONTINFO            
  26.  WINDOWS _R5W10Z4SP 528845282
  27.  COMMENT FONTINFO            
  28.  WINDOWS _R5W12Z7GR 528847203
  29.  COMMENT FONTINFO            
  30.  WINDOWS _R5W167XO6 528850234[
  31.  COMMENT FONTINFO            
  32.  WINDOWS _R5X1BVTG7 528921229;
  33.  COMMENT FONTINFO            
  34.  WINDOWS _R5Y077O6X 528947899|
  35.  COMMENT FONTINFO            
  36.  WINDOWS _R5Y079SRM 528947953e
  37.  COMMENT FONTINFO            
  38.  WINDOWS _R5Y083UYL 528948700o
  39.  COMMENT FONTINFO            
  40.  WINDOWS _R5Y084632 528948709
  41.  COMMENT FONTINFO            
  42.  WINDOWS _R5Y084HIM 528948717
  43.  COMMENT FONTINFO            
  44.  WINDOWS _R6205UPYW 529208697
  45.  COMMENT FONTINFO            
  46.  WINDOWS _R63012VM9 529269699}
  47.  COMMENT FONTINFO            
  48.  WINDOWS _R65057UOI 529404738
  49.  COMMENT FONTINFO            
  50.  WINDOWS _R661ECU17 529513395
  51.  COMMENT FONTINFO            
  52.  WINDOWS _R661ED6JW 529513403
  53.  COMMENT FONTINFO            
  54.  WINDOWS _R670239GQ 529532751
  55.  COMMENT FONTINFO            
  56.  WINDOWS _R67024A9X 529532777
  57.  COMMENT FONTINFO            
  58.  WINDOWS _R67029A7Y 529533030
  59.  COMMENT FONTINFO            
  60.  WINDOWS _R6I08PLP8 530260089
  61.  COMMENT FONTINFO            
  62.  WINDOWS _R6I091R8W 530260393d6
  63.  COMMENT FONTINFO            
  64.  WINDOWS _R6I094ISX 530260461k:
  65.  COMMENT FONTINFO            
  66.  WINDOWS _R6I09W69N 530261148
  67.  COMMENT FONTINFO            
  68.  WINDOWS _R6S0W3VUF 539260760kB
  69.  COMMENT FONTINFO            
  70.  WINDOWS _R6S0W46JC 539260769SD
  71.  COMMENT FONTINFO            
  72.  WINDOWS _R6S0W7BUM 539260974
  73.  COMMENT FONTINFO            
  74.  WINDOWS _R8O1DKEXV 543996144OI
  75.  COMMENT FONTINFO            
  76.  WINDOWS _R8P0PT09S 5440389876K
  77.  COMMENT FONTINFO            
  78.  WINDOWS _R8P0UGS15 5440434173N
  79.  COMMENT FONTINFO            
  80.  WINDOWS _R9H0X10NV 545946385aS
  81.  COMMENT FONTINFO            
  82.  WINDOWS _R9I0Y4EXP 546012902 
  83.  COMMENT FONTINFO            
  84.  WINDOWS _R6S0W66L1 551232708
  85.  COMMENT RESERVED            
  86.  WINDOWS _R6I1EV6PW 551232715$
  87.  COMMENT RESERVED            
  88.  WINDOWS _R6I1EWE9U 551232721
  89.  COMMENT RESERVED            
  90.  WINDOWS _R9I0XSTFB 596857549o
  91.  COMMENT RESERVED            
  92.  WINDOWS _R6I08BU17 596857575$
  93.  COMMENT RESERVED            
  94.  WINDOWS _R6I08CP26 596857616'1
  95.  COMMENT RESERVED            
  96.  WINDOWS _R5V0Z3XQW 596857646
  97.  COMMENT RESERVED            
  98.  WINDOWS _R9I0Y3HTC 606686148
  99.  WINDOWS _R9I0Y3DB9 606686148
  100.  WINDOWS _R9I0Y3DJQ 606686148M
  101.  WINDOWS _R9I0Y3DNG 606686148d
  102.  WINDOWS _R9I0Y3DQS 606686148v
  103.  WINDOWS _R9I0Y3DUA 606686148
  104.  WINDOWS _R9I0Y3DXX 606686148l
  105.  WINDOWS _R9I0Y3E1K 546012876
  106.  WINDOWS _R9I0Y3E6Q 606686148
  107.  WINDOWS _R9I0Y3ECN 546012876
  108.  WINDOWS _R9I0Y3EGX 606686148
  109.  WINDOWS _R9I0Y3EKN 606686148
  110.  WINDOWS _R9I0Y3EO3 606686148
  111.  WINDOWS _R9I0Y3ERF 606686148
  112.  WINDOWS _R9I0Y3EUT 606685624
  113.  WINDOWS _R9I0Y3EYK 606686148U
  114.  WINDOWS _R9I0Y3F22 606685624z
  115.  WINDOWS _R9I0Y3F5M 606686148
  116.  WINDOWS _R9I0Y3F8R 606685624
  117.  WINDOWS _R9I0Y3FCJ 606686148
  118.  WINDOWS _R9I0Y3FG8 606686148
  119.  WINDOWS _R9I0Y3FKF 606686148
  120.  WINDOWS _R9I0Y3FNU 606686148
  121.  WINDOWS _R9I0Y3FRA 546012877
  122.  WINDOWS _R9I0Y3FV4 606686149
  123.  WINDOWS _R9I0Y3FYE 606686149    {
  124.  WINDOWS _R9I0Y3G1K 606686149
  125.  WINDOWS _R9I0Y3G52 6066861493y
  126.  WINDOWS _R9I0Y3G9F 546012877
  127.  WINDOWS _R9I0Y3GEE 606685624>w
  128.  WINDOWS _R9I0Y3GIO 606685624    u
  129.  WINDOWS _R9I0Y3GNA 606686149Ht
  130.  WINDOWS _R9I0Y3GQV 606686149?s
  131.  WINDOWS _R9I0Y3GUQ 606686149
  132.  WINDOWS _R9I0Y3GY9 606686149Pq
  133.  WINDOWS _R9I0Y3H1N 606686149
  134.  WINDOWS _R9I0Y3H59 546012878
  135.  WINDOWS _R9I0Y3H92 606686149
  136.  WINDOWS _R9I0Y3HCY 606686149EB
  137.  WINDOWS _R9I0Y3HIM 606686149
  138.  WINDOWS _R9I0Y3HLW 606686149,3
  139.  WINDOWS _R9I0Y3HP8 606686149b 
  140.  COMMENT RESERVED            
  141. VERSION =   3.00
  142. tfadditembutton
  143. transfrm.vcx
  144. commandbutton
  145. tfaddfolderbutton
  146. EWidth = 71
  147. Caption = "Add \<Folder..."
  148. Name = "tfaddfolderbutton"
  149. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  150.     tftextbox
  151. Pixels
  152. Class
  153. textbox
  154. Class
  155. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  156. Class
  157. Pixels
  158. tfaddfolderbutton
  159. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  160.     pageframe
  161.     pageframe
  162. tfpageframe
  163. QErasePage = .T.
  164. PageCount = 0
  165. Width = 241
  166. Height = 169
  167. Name = "tfpageframe"
  168.     tftextbox
  169. THISFORM
  170. CMDTRANSFORM
  171. REFRESH
  172. fpgFiles.Refresh,
  173. transfrm.h
  174. tPROCEDURE Error
  175. LPARAMETERS nError, cMethod, nLine
  176. RETURN thisform.Error(nError,cMethod,nLine,this)
  177. ENDPROC
  178. textbox
  179. tfdialog
  180. 5PROCEDURE Click
  181. thisform.AddFontRules()
  182. ENDPROC
  183. Class
  184. Pixels
  185. tfpageframe
  186. tfcommandbutton
  187. transfrm.vcx
  188. commandbutton
  189. tfedititembutton
  190. YCaption = "\<Edit..."
  191. cobjectname = 
  192. lvalidateselect = .F.
  193. Name = "tfedititembutton"
  194. FontBold = .F.
  195. FontName = "MS Sans Serif"
  196. FontSize = 8
  197. Format = "K"
  198. Height = 22
  199. InputMask = (REPLICATE('X',254))
  200. Width = 113
  201. Name = "tftextbox"
  202. transfrm.h
  203. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  204. transfrm.h
  205. Pixels
  206. tfdialog
  207. cversion
  208. lerror
  209. lrelease
  210. READONLY
  211. VALUE
  212. When,
  213. Class
  214. Pixels
  215. Class
  216. Lcobjectname
  217. lvalidateselect
  218. lvalidatefileinlist
  219. *edititem 
  220. *validitem 
  221. Pixels
  222. tfedititembutton
  223. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  224. tfadditembutton
  225. transfrm.vcx
  226. commandbutton
  227. tfaddrulebutton
  228. -Caption = "\<Add"
  229. Name = "tfaddrulebutton"
  230. PARENT
  231. REFRESH
  232. Click,
  233. Class
  234. Pixels
  235. tfaddrulebutton
  236. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  237. tfedititembutton
  238. transfrm.vcx
  239. commandbutton
  240. tfadditembutton
  241. 0Caption = "\<Add..."
  242. Name = "tfadditembutton"
  243. kDataSession = 2
  244. Height = 250
  245. Width = 375
  246. DoCreate = .T.
  247. ShowTips = .T.
  248. AutoCenter = .T.
  249. BorderStyle = 2
  250. Caption = "Visual FoxPro Transformer"
  251. FontName = "MS Sans Serif"
  252. FontSize = 8
  253. MaxButton = .F.
  254. MinButton = .F.
  255. Icon = transfrm.ico
  256. KeyPreview = .T.
  257. WindowType = 1
  258. AlwaysOnTop = .T.
  259. cversion = Visual FoxPro Transformer 01.00
  260. Name = "tfdialog"
  261. transformer
  262. CPROCEDURE Click
  263. HELP ID thisform.HelpContextID NOWAIT
  264. ENDPROC
  265. )MS Sans Serif, 0, 8, 7, 16, 13, 14, 3, 0
  266. transfrm.h
  267. Pixels
  268. tfdialog
  269. tflogtofileellipsis
  270. Class
  271. |*additem Adds a new item to a ComboBox or ListBox control, optionally allowing you to specify the item's index.
  272. *getitem 
  273. Pixels
  274. tfadditembutton
  275. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  276. tlitemselectlistbox
  277. transfrm.vcx
  278. listbox
  279. tfselectedfileslistbox
  280. XHeight = 221
  281. Left = 9
  282. TabIndex = 2
  283. Top = 26
  284. Width = 381
  285. Name = "lstSelectedFiles"
  286. Class
  287. Pixels
  288. transfrm.h
  289. tfselectedfileslistbox
  290. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  291. tfcombobox
  292. transfrm.vcx
  293. combobox
  294. tfclassescombobox
  295. $RowSourceType = 1
  296. RowSource = ",CheckBox,ComboBox,CommandButton,CommandGroup,Container,Control,Custom,EditBox,Form,FormSet,Grid,Image,Label,Line,ListBox,OleControl,OleBoundControl,OptionButton,OptionGroup,PageFrame,Separator,Shape,Spinner,TextBox,Timer,Toolbar"
  297. Name = "tfclassescombobox"
  298. Class
  299. Pixels
  300. tfclassescombobox
  301. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  302. tfcombobox
  303. transfrm.vcx
  304. combobox
  305. tffilescombobox
  306. IRowSourceType = 1
  307. RowSource = ",*.scx,*.vcx"
  308. Name = "tffilescombobox"
  309. Class
  310. Pixels
  311. tffilescombobox
  312. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  313. editbox
  314. editbox
  315.     tfeditbox
  316. yFontBold = .F.
  317. FontName = "MS Sans Serif"
  318. FontSize = 8
  319. Height = 56
  320. Width = 101
  321. ColorSource = 1
  322. Name = "tfeditbox"
  323. THISFORM
  324. HELPCONTEXTID
  325. Click,
  326. cmdHelp
  327. Class
  328. tfellipsis
  329. Class
  330. Pixels
  331.     tfeditbox
  332. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  333. label
  334. label
  335. tflabel
  336. FontBold = .F.
  337. FontName = "MS Sans Serif"
  338. FontSize = 8
  339. BackStyle = 0
  340. Caption = "Label1"
  341. Height = 16
  342. Width = 46
  343. ColorSource = 1
  344. Name = "tflabel"
  345. THISFORM
  346. ADDFONTRULES
  347. Click,
  348. tflogtofileellipsis
  349. commandbutton
  350. Class
  351. Pixels
  352. tflabel
  353. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  354. listbox
  355. listbox
  356.     tflistbox
  357. xFontBold = .F.
  358. FontName = "MS Sans Serif"
  359. FontSize = 8
  360. Height = 68
  361. Width = 68
  362. ColorSource = 1
  363. Name = "tflistbox"
  364. THISFORM    
  365. CLEARRULE
  366. edititem,
  367. transformer
  368. transfrm.vcx
  369. Class
  370. Pixels
  371.     tflistbox
  372. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  373. tfedititembutton
  374. transfrm.vcx
  375. commandbutton
  376. tfeditrulebutton
  377. FCaption = "\<Edit"
  378. lvalidateselect = .T.
  379. Name = "tfeditrulebutton"
  380. THISFORM    
  381. OPENRULES
  382. edititem,
  383. 5PROCEDURE edititem
  384. thisform.ClearRule()
  385. ENDPROC
  386. EPROCEDURE edititem
  387. thisform.TransformFiles()
  388. NODEFAULT
  389. ENDPROC
  390. transformer
  391. Class
  392. Pixels
  393. tfeditrulebutton
  394. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  395.     tflistbox
  396. transfrm.vcx
  397. listbox
  398. tlitemselectlistbox
  399. @MoverBars = .T.
  400. ColorSource = 1
  401. Name = "tlitemselectlistbox"
  402. INTERACTIVECHANGE0
  403. TFCREATELOGONLY
  404. INTERACTIVECHANGE
  405. PARENT
  406. FPGFILES
  407. CHKCREATELOGONLY
  408. VALUE
  409. ProgrammaticChange,
  410. InteractiveChangeV
  411. cmdTransform
  412. commandbutton
  413. label
  414. `PROCEDURE Click
  415. IF NOT thisform.SaveSettings()
  416.     RETURN
  417. ENDIF
  418. thisform.Release()
  419. ENDPROC
  420. transfrm.vcx
  421. tftransformbutton
  422. cmdClose
  423. Class
  424. Pixels
  425. tlitemselectlistbox
  426. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  427.     tftextbox
  428. transfrm.vcx
  429. textbox
  430. tflogtofiletextbox
  431. GDisabledBackColor = (thisform.BackColor)
  432. Name = "tflogtofiletextbox"
  433. TFCREATELOGONLY
  434. INTERACTIVECHANGE
  435. PARENT
  436. FPGLOG
  437. CHKCREATELOGONLY
  438. VALUE
  439. INTERACTIVECHANGE
  440. InteractiveChange,
  441. ProgrammaticChange
  442. transformer
  443. commandbutton
  444. Class
  445. Pixels
  446. tflogtofiletextbox
  447. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  448. tfremoveitembutton
  449. transfrm.vcx
  450. commandbutton
  451. tfremoverulebutton
  452. +TabIndex = 5
  453. Name = "tfremoverulebutton"
  454. Class
  455. Pixels
  456. transfrm.h
  457. tfremoverulebutton
  458. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  459. tfremoveitembutton
  460. transfrm.vcx
  461. commandbutton
  462. tfremovefilebutton
  463. )Width = 71
  464. Name = "tfremovefilebutton"
  465. Class
  466. Pixels
  467. tfremovefilebutton
  468. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  469. tfedititembutton
  470. transfrm.vcx
  471. commandbutton
  472. tfsaverulesbutton
  473. NCaption = "\<Save..."
  474. lvalidatefileinlist = .T.
  475. Name = "tfsaverulesbutton"
  476. THISFORM
  477. ADDRULE
  478. getitem,
  479. Class
  480. Pixels
  481. tfsaverulesbutton
  482. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  483. tfedititembutton
  484. transfrm.vcx
  485. commandbutton
  486. tfopenrulesbutton
  487. 3Caption = "\<Open..."
  488. Name = "tfopenrulesbutton"
  489. THISFORM    
  490. SAVERULES
  491. edititem,
  492. Class
  493. Pixels
  494. tfopenrulesbutton
  495. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  496. tfedititembutton
  497. transfrm.vcx
  498. commandbutton
  499. tfremoveitembutton
  500. bCaption = "\<Remove"
  501. csetfocusobjectname = 
  502. lvalidateselect = .T.
  503. Name = "tfremoveitembutton"
  504. LCDISPLAYVALUE
  505. DISPLAYVALUE
  506. VALUE    
  507. ROWSOURCE
  508. ADDITEM/
  509. NERROR
  510. CMETHOD
  511. NLINE
  512. THISFORM
  513. ERROR
  514. THIS    
  515. LostFocus,
  516. Error
  517. NERROR
  518. CMETHOD
  519. NLINE
  520. THISFORM
  521. ERROR
  522. Error,
  523. Class
  524. Ncsetfocusobjectname
  525. *removeitem Removes an item from a ComboBox or ListBox.
  526. Pixels
  527. tfremoveitembutton
  528. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  529. log|txt
  530. log|txt
  531. Select
  532. TCOLDEXPR    
  533. LCNEWEXPR
  534. THISFORM
  535. TRIMPATH
  536. getvalue,
  537. Top = 305
  538. Left = 345
  539. Width = 70
  540. FontSize = 8
  541. TabIndex = 2
  542. cobjectname = pgfTransformer.fpgFiles.lstSelectedFiles
  543. Name = "cmdTransform"
  544. transfrm.vcx
  545. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  546. tfcombobox
  547. Pixels
  548. Class
  549. combobox
  550. tfcombobox
  551. combobox
  552. Class
  553. Pixels
  554. tfcreatelogonly
  555. THISFORM
  556. TRANSFORMFILES
  557. edititem,
  558. getitem,
  559. tfhelpbutton
  560. 5PROCEDURE edititem
  561. thisform.OpenRules()
  562. ENDPROC
  563. YFontName = "MS Sans Serif"
  564. FontSize = 8
  565. Height = 22
  566. Width = 112
  567. Name = "tfcombobox"
  568. commandbutton
  569. commandbutton
  570. tfcommandbutton
  571. Height = 22
  572. Width = 56
  573. FontBold = .F.
  574. FontName = "MS Sans Serif"
  575. FontSize = 9
  576. Caption = ""
  577. ColorSource = 1
  578. Name = "tfcommandbutton"
  579. QTop = 305
  580. Left = 420
  581. Width = 70
  582. FontSize = 8
  583. TabIndex = 3
  584. Name = "cmdHelp"
  585. RTop = 305
  586. Left = 270
  587. Width = 70
  588. FontSize = 8
  589. TabIndex = 1
  590. Name = "cmdClose"
  591. transformer
  592. commandbutton
  593. transfrm.vcx
  594. label
  595. Class
  596. Pixels
  597. transfrm.h
  598. tfcommandbutton
  599. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  600. transfrm.h
  601. tfcommandbutton
  602. transfrm.vcx
  603. commandbutton
  604. tfellipsis
  605. QWidth = 21
  606. Caption = "..."
  607. TabIndex = 12
  608. cobjectname = 
  609. Name = "tfellipsis"
  610. THISFORM
  611. EDITRULE
  612. PARENT
  613. REFRESH_
  614. TCITEM
  615. LCITEM
  616. THISFORM
  617. TLITEMSELECTLISTBOX
  618. ADDITEM
  619. DblClick,
  620. AddItem{
  621. tfclosebutton
  622. !transformer.pgfTransformer.fpgLog
  623. checkbox
  624. tPROCEDURE Error
  625. LPARAMETERS nError, cMethod, nLine
  626. RETURN thisform.Error(nError,cMethod,nLine,this)
  627. ENDPROC
  628. Class
  629. $cobjectname
  630. *getitem 
  631. *getvalue 
  632. Pixels
  633. transfrm.h
  634. tfellipsis
  635. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  636. transfrm.h
  637. checkbox
  638. checkbox
  639. tfcheckbox
  640. Height = 16
  641. Width = 65
  642. FontBold = .F.
  643. FontName = "MS Sans Serif"
  644. FontSize = 8
  645. BackStyle = 0
  646. Caption = "Check1"
  647. Value = .F.
  648. ColorSource = 1
  649. Name = "tfcheckbox"
  650. THISFORM
  651. SAVESETTINGS
  652. RELEASE
  653. Click,
  654. Class
  655. Pixels
  656. tfcheckbox
  657. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  658. tfcommandbutton
  659. transfrm.vcx
  660. commandbutton
  661. tfzoombutton
  662. +Caption = "\<Zoom"
  663. Name = "tfzoombutton"
  664. NERROR
  665. CMETHOD
  666. NLINE
  667. THISFORM
  668. ERROR
  669. Error,
  670. tPROCEDURE Error
  671. LPARAMETERS nError, cMethod, nLine
  672. RETURN thisform.Error(nError,cMethod,nLine,this)
  673. ENDPROC
  674. chkCreateLogOnly
  675. transfrm.vcx
  676. Class
  677. Pixels
  678. tfzoombutton
  679. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  680. NERROR
  681. CMETHOD
  682. NLINE
  683. THISFORM
  684. ERROR
  685. Error,
  686. cmdZoom
  687. 5PROCEDURE edititem
  688. thisform.SaveRules()
  689. ENDPROC
  690. TFEDITITEMBUTTON
  691. CLICK
  692. ENABLED
  693. THISFORM
  694. RULESETFOCUS
  695. THISFORM
  696. EDITRULE
  697. Click,
  698. edititem
  699. tfcreatelogonly
  700. editbox
  701. tfcommandbutton
  702. transfrm.vcx
  703. commandbutton
  704. tfclosebutton
  705. +Caption = "Close"
  706. Name = "tfclosebutton"
  707. PROCEDURE Click
  708. Tfedititembutton::Click()
  709. IF NOT this.Enabled
  710.     NODEFAULT
  711.     thisform.RuleSetFocus()
  712. ENDIF
  713. ENDPROC
  714. PROCEDURE edititem
  715. thisform.EditRule()
  716. ENDPROC
  717. 9PROCEDURE getitem
  718. RETURN thisform.AddRule()
  719. ENDPROC
  720. Class
  721. Pixels
  722. tfclosebutton
  723. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  724. tfedititembutton
  725. transfrm.vcx
  726. commandbutton
  727. tftransformbutton
  728. NCaption = "Transform"
  729. lvalidatefileinlist = .T.
  730. Name = "tftransformbutton"
  731. tPROCEDURE Error
  732. LPARAMETERS nError, cMethod, nLine
  733. RETURN thisform.Error(nError,cMethod,nLine,this)
  734. ENDPROC
  735. 6PROCEDURE getitem
  736. RETURN LOWER(GETDIR())
  737. ENDPROC
  738. !transformer.pgfTransformer.fpgLog
  739. Class
  740. tflabel
  741. Pixels
  742. transfrm.h
  743. tftransformbutton
  744. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  745. transfrm.h
  746. PROCEDURE ProgrammaticChange
  747. this.InteractiveChange
  748. ENDPROC
  749. PROCEDURE InteractiveChange
  750. Tfcreatelogonly::Interactivechange
  751. this.parent.parent.fpgFiles.chkCreateLogOnly.Value=this.Value
  752. ENDPROC
  753. commandbutton
  754. transfrm.vcx
  755. tfedititembutton
  756. transfrm.vcx
  757. commandbutton
  758. tfclearrulebutton
  759. 1Caption = "\<Clear"
  760. Name = "tfclearrulebutton"
  761. tPROCEDURE Error
  762. LPARAMETERS nError, cMethod, nLine
  763. RETURN thisform.Error(nError,cMethod,nLine,this)
  764. ENDPROC
  765. :cobjectname = txtLogToFile
  766. Name = "tflogtofileellipsis"
  767. tfzoombutton
  768. Class
  769. Pixels
  770. tfclearrulebutton
  771. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  772. tfcommandbutton
  773. transfrm.vcx
  774. commandbutton
  775. tfaddfontsbutton
  776. 4Caption = "\<Font Rule"
  777. Name = "tfaddfontsbutton"
  778. tPROCEDURE Error
  779. LPARAMETERS nError, cMethod, nLine
  780. RETURN thisform.Error(nError,cMethod,nLine,this)
  781. ENDPROC
  782. WTop = 226
  783. Left = 9
  784. Width = 96
  785. Value = .T.
  786. TabIndex = 4
  787. Name = "chkCreateLogOnly"
  788. Class
  789. transfrm.vcx
  790. Pixels
  791. tfaddfontsbutton
  792. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  793. tfadditembutton
  794. transfrm.vcx
  795. commandbutton
  796. tfaddfilebutton
  797. AWidth = 71
  798. Caption = "\<Add File..."
  799. Name = "tfaddfilebutton"
  800. LCFILENAME
  801. LCNALIAS
  802. THISFORM
  803. OTRANSFORM
  804. CGETFILEEXT
  805. LCALIAS
  806. getitem,
  807. Class
  808. Pixels
  809. tfaddfilebutton
  810. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  811. tlitemselectlistbox
  812. transfrm.vcx
  813. listbox
  814. tfselectedruleslistbox
  815. JHeight = 116
  816. TabIndex = 2
  817. Width = 386
  818. Name = "tfselectedruleslistbox"
  819. Transformer
  820. LCALIAS
  821. LNLASTSELECT
  822. PARENT
  823. EDTTRANSFORMERLOG
  824. VALUE
  825. Click,
  826. checkbox
  827. Class
  828. Pixels
  829. transfrm.h
  830. tfselectedruleslistbox
  831. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  832. transfrm.h
  833. transfrm.log
  834. LLENABLED
  835. PARENT
  836. CHKLOGTOFILE
  837. VALUE
  838. ENABLED
  839. DISABLEDBACKCOLOR
  840. THISFORM    
  841. BACKCOLOR
  842. Refresh,
  843. ETop = 226
  844. Left = 414
  845. FontSize = 8
  846. TabIndex = 1
  847. Name = "cmdZoom"
  848. tfcommandbutton
  849. transfrm.vcx
  850. commandbutton
  851. tfhelpbutton
  852. +Caption = "\<Help"
  853. Name = "tfhelpbutton"
  854. nHeight = 191
  855. Left = 9
  856. StatusBarText = " "
  857. TabIndex = 3
  858. Top = 26
  859. Width = 459
  860. Name = "edtTransformerLog"
  861. !transformer.pgfTransformer.fpgLog
  862. edtTransformerLog
  863. tflogeditbox
  864. tfcheckbox
  865. Class
  866. Pixels
  867. tfhelpbutton
  868. )MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
  869. OFORM
  870. LNCOUNT    
  871. FORMCOUNT
  872. FORMS
  873. CLASS
  874. VISIBLE
  875. WINDOWSTATE
  876. REFRESH~
  877. OFORM
  878. LNCOUNT    
  879. FORMCOUNT
  880. FORMS
  881. CLASS
  882. _OTRANSFRM
  883. _OTRANSFRM
  884. THISu
  885. NKEYCODE
  886. NSHIFTALTCTRL
  887. QUERYUNLOAD
  888. RELEASE
  889. oObjectb
  890. Transfrm:     
  891. Object:        
  892. Method:       
  893. Line:            
  894. NERROR
  895. CMETHOD
  896. NLINE
  897. OOBJECT
  898. LCERRORMSG
  899. LCCODELINEMSG
  900. LERROR
  901. LRELEASE
  902. RELEASE
  903. CAPTION$
  904. QUERYUNLOAD
  905. MACHINE
  906. Loading 
  907. CAPTION
  908. Init,
  909. Destroyk
  910. Deactivate(
  911. Activate:
  912. KeyPressy
  913. Error'
  914. Releasem
  915. oObject=this.parent.&lcObjectName
  916. this.parent.
  917. LCOBJECTNAME
  918. OOBJECT    
  919. LCOLDEXPR    
  920. LCNEWEXPR
  921. COBJECTNAME
  922. VALUE
  923. GETVALUE*
  924. TCOLDEXPR    
  925. LCNEWEXPR
  926. GETITEM
  927. getitem,
  928. getvalueT
  929. Click
  930. oObject=this.parent.&lcObjectName
  931. nIndexb
  932. this.parent.&lcSetFocusObjectName..SetFocus()
  933. NINDEX
  934. LCOBJECTNAME
  935. OOBJECT
  936. LCSETFOCUSOBJECTNAME
  937. COBJECTNAME
  938. CSETFOCUSOBJECTNAME    
  939. LISTINDEX
  940. THISFORM
  941. LUPDATED
  942. REMOVEITEM    
  943. LISTCOUNT4
  944. LNRESULT
  945. REMOVEITEM
  946. PARENT
  947. REFRESH
  948. removeitem,
  949. edititem
  950. CITEM
  951. LNCOUNT
  952. LCITEM
  953. THIS    
  954. LISTCOUNT
  955. LIST    
  956. LISTINDEX
  957. LISTBOX
  958. ADDITEM
  959. PARENT
  960. REFRESH
  961. AddItem,
  962. Click{
  963. NERROR
  964. CMETHOD
  965. NLINE
  966. THISFORM
  967. ERROR
  968. Error,
  969. NERROR
  970. CMETHOD
  971. NLINE
  972. THISFORM
  973. ERROR
  974. Error,
  975. NERROR
  976. CMETHOD
  977. NLINE
  978. THISFORM
  979. ERROR
  980. Error,
  981. oObject=this.parent.&lcObjectName
  982. cItemb
  983. CITEM
  984. LCOBJECTNAME
  985. OOBJECT
  986. COBJECTNAME
  987. GETITEM
  988. ADDITEM
  989. LNRESULT
  990. ADDITEM
  991. PARENT
  992. REFRESH
  993. additem,
  994. getitem
  995. edititem&
  996. oList=this.parent.&lcObjectName
  997. this.parent.
  998. LCOBJECTNAME
  999. OLIST
  1000. COBJECTNAME
  1001. LVALIDATEFILEINLIST    
  1002. LISTCOUNT
  1003. LVALIDATESELECT    
  1004. LISTINDEX
  1005. EDITITEM
  1006. ENABLED    
  1007. VALIDITEM    
  1008. validitem,
  1009. Click?
  1010. Refreshg
  1011. NERROR
  1012. CMETHOD
  1013. NLINE
  1014. THISFORM
  1015. ERROR
  1016. THISu
  1017. LNCOUNT
  1018. THIS    
  1019. PAGECOUNT
  1020. PAGES    
  1021. BACKCOLOR
  1022. THISFORM
  1023. ACTIVEPAGE
  1024. REFRESH
  1025. Error,
  1026. Refresh
  1027. jCaption = "Transformer \<log:"
  1028. Left = 9
  1029. Top = 11
  1030. Width = 81
  1031. TabIndex = 2
  1032. Name = "lblTransformerLog"
  1033. !transformer.pgfTransformer.fpgLog
  1034. lblTransformerLog
  1035. transfrm.vcx
  1036. JTop = 111
  1037. Left = 414
  1038. FontSize = 8
  1039. TabIndex = 19
  1040. Name = "cmdAddFonts"
  1041. #transformer.pgfTransformer.fpgRules
  1042. cmdAddFonts
  1043. commandbutton
  1044. transfrm.vcx
  1045. tfaddfontsbutton
  1046. Top = 111
  1047. Left = 9
  1048. Height = 16
  1049. Width = 172
  1050. Caption = "Override propert\<y defaults"
  1051. TabIndex = 16
  1052. Name = "chkOverridePropertyDefaults"
  1053. #transformer.pgfTransformer.fpgRules
  1054. chkOverridePropertyDefaults
  1055. transfrm.vcx
  1056. oTop = 91
  1057. Left = 345
  1058. Height = 16
  1059. Width = 70
  1060. Caption = "Exclude"
  1061. TabIndex = 13
  1062. Name = "chkExcludeClasses"
  1063. #transformer.pgfTransformer.fpgRules
  1064. chkExcludeClasses
  1065. checkbox
  1066. transfrm.vcx
  1067. tfcheckbox
  1068. Top = 66
  1069. Left = 345
  1070. Height = 16
  1071. Width = 70
  1072. DisabledPicture = samples\
  1073. Caption = "Exclude"
  1074. TabIndex = 10
  1075. Name = "chkExcludeFiles"
  1076. #transformer.pgfTransformer.fpgRules
  1077. chkExcludeFiles
  1078. checkbox
  1079. transfrm.vcx
  1080. tfcheckbox
  1081. FLeft = 65
  1082. TabIndex = 12
  1083. Top = 86
  1084. Width = 276
  1085. Name = "cboClasses"
  1086. #transformer.pgfTransformer.fpgRules
  1087. cboClasses
  1088. combobox
  1089. transfrm.vcx
  1090. tfclassescombobox
  1091. CLeft = 65
  1092. TabIndex = 9
  1093. Top = 61
  1094. Width = 276
  1095. Name = "cboFiles"
  1096. #transformer.pgfTransformer.fpgRules
  1097. cboFiles
  1098. jPROCEDURE getvalue
  1099. LPARAMETERS tcOldExpr
  1100. LOCAL lcNewExpr
  1101. IF thisform.lMac
  1102.     lcNewExpr=LOWER(GETDIR('log|txt'))
  1103.     IF NOT EMPTY(lcNewExpr)
  1104.         lcNewExpr=LOWER(FULLPATH(thisform.TrimPath(tcOldExpr),lcNewExpr))
  1105.     ENDIF
  1106.     lcNewExpr=LOWER(GETFILE('log|txt','','Select'))
  1107. ENDIF
  1108. IF EMPTY(lcNewExpr)
  1109.     lcNewExpr=tcOldExpr
  1110. ENDIF
  1111. RETURN lcNewExpr
  1112. ENDPROC
  1113. combobox
  1114. transfrm.vcx
  1115. tffilescombobox
  1116. ZHeight = 100
  1117. Left = 9
  1118. TabIndex = 18
  1119. Top = 147
  1120. Width = 396
  1121. Name = "lstSelectedRules"
  1122. #transformer.pgfTransformer.fpgRules
  1123. lstSelectedRules
  1124. listbox
  1125. transfrm.vcx
  1126. tfselectedruleslistbox
  1127. Top = 171
  1128. Left = 414
  1129. FontSize = 8
  1130. TabIndex = 21
  1131. cobjectname = lstSelectedRules
  1132. csetfocusobjectname = txtProperty
  1133. Name = "cmdRemove"
  1134. #transformer.pgfTransformer.fpgRules
  1135.     cmdRemove
  1136. commandbutton
  1137. transfrm.vcx
  1138. tfremoverulebutton
  1139. fTop = 36
  1140. Left = 414
  1141. FontSize = 8
  1142. TabIndex = 15
  1143. cobjectname = lstSelectedRules
  1144. Name = "cmdClear"
  1145. #transformer.pgfTransformer.fpgRules
  1146. cmdClear
  1147. commandbutton
  1148. transfrm.vcx
  1149. tfclearrulebutton
  1150. fTop = 146
  1151. Left = 414
  1152. FontSize = 8
  1153. TabIndex = 20
  1154. cobjectname = lstSelectedRules
  1155. Name = "cmdEdit"
  1156. #transformer.pgfTransformer.fpgRules
  1157. cmdEdit
  1158. commandbutton
  1159. transfrm.vcx
  1160. tfeditrulebutton
  1161. xCaption = "Selected r\<ules:"
  1162. Height = 16
  1163. Left = 9
  1164. Top = 131
  1165. Width = 100
  1166. TabIndex = 17
  1167. Name = "lblSelectedRules"
  1168. #transformer.pgfTransformer.fpgRules
  1169. lblSelectedRules
  1170. transfrm.vcx
  1171. tflabel
  1172. _Top = 36
  1173. Left = 374
  1174. TabIndex = 7
  1175. cobjectname = txtCondition
  1176. Name = "cmdConditionEllipsis"
  1177. #transformer.pgfTransformer.fpgRules
  1178. cmdConditionEllipsis
  1179. commandbutton
  1180. transfrm.vcx
  1181. tfellipsis
  1182. fTop = 226
  1183. Left = 414
  1184. FontSize = 8
  1185. TabIndex = 23
  1186. cobjectname = lstSelectedRules
  1187. Name = "cmdSave"
  1188. #transformer.pgfTransformer.fpgRules
  1189. cmdSave
  1190. commandbutton
  1191. transfrm.vcx
  1192. tfsaverulesbutton
  1193. fTop = 201
  1194. Left = 414
  1195. FontSize = 8
  1196. TabIndex = 22
  1197. cobjectname = lstSelectedRules
  1198. Name = "cmdOpen"
  1199. #transformer.pgfTransformer.fpgRules
  1200. cmdOpen
  1201. commandbutton
  1202. transfrm.vcx
  1203. tfopenrulesbutton
  1204. iCaption = "C\<lasses:"
  1205. Height = 16
  1206. Left = 9
  1207. Top = 90
  1208. Width = 49
  1209. TabIndex = 11
  1210. Name = "lblClasses"
  1211. lblClasses
  1212. label
  1213.  PROCEDURE DblClick
  1214. thisform.EditRule()
  1215. this.parent.Refresh()
  1216. ENDPROC
  1217. PROCEDURE AddItem
  1218. LPARAMETERS tcItem
  1219. LOCAL lcItem
  1220. lcItem=ALLTRIM(tcItem)
  1221. IF thisform.lMac
  1222.     lcItem=STRTRAN(lcItem,RULE_CODE_WIN,RULE_CODE_MAC)
  1223. ENDIF
  1224. RETURN Tlitemselectlistbox::Additem(lcItem)
  1225. ENDPROC
  1226. ,PROCEDURE Refresh
  1227. LOCAL llEnabled
  1228. llEnabled=this.parent.chkLogToFile.Value
  1229. IF this.Enabled#llEnabled
  1230.     this.Enabled=llEnabled
  1231.     this.DisabledBackColor=IIF(this.Enabled,RGB(255,255,255),thisform.BackColor)
  1232. ENDIF
  1233. IF EMPTY(this.Value)
  1234.     this.Value=LOWER(HOME()+'transfrm.log')
  1235. ENDIF
  1236. ENDPROC
  1237. {PROCEDURE LostFocus
  1238. LOCAL lcDisplayValue
  1239. lcDisplayValue=this.DisplayValue
  1240. IF EMPTY(lcDisplayValue)
  1241.     this.Value=''
  1242. ENDIF
  1243. IF NOT EMPTY(lcDisplayValue) AND ;
  1244.         ATC(lcDisplayValue+',',this.RowSource+',')=0
  1245.     this.AddItem(lcDisplayValue,2)
  1246. ENDIF
  1247. ENDPROC
  1248. PROCEDURE Error
  1249. LPARAMETERS nError, cMethod, nLine
  1250. RETURN thisform.Error(nError,cMethod,nLine,this)
  1251. ENDPROC
  1252. bPROCEDURE Init
  1253. LOCAL oForm,lnCount
  1254. FOR lnCount = 1 TO _screen.FormCount
  1255.     oForm=_screen.Forms[lnCount]
  1256.     IF NOT oForm.Class==this.Class OR NOT oForm.Visible OR ;
  1257.             oForm.WindowState#0 OR oForm.Top#this.Top OR ;
  1258.             oForm.Left#this.Left
  1259.         LOOP
  1260.     ENDIF
  1261.     this.Top=this.Top+22
  1262.     this.Left=this.Left+22
  1263.     lnCount=1
  1264. ENDFOR
  1265. this.Refresh()
  1266. ENDPROC
  1267. PROCEDURE Destroy
  1268. LOCAL oForm,lnCount
  1269. FOR lnCount = _screen.FormCount TO 1 STEP -1
  1270.     oForm=_screen.Forms[lnCount]
  1271.     IF NOT oForm.Class==this.Class
  1272.         LOOP
  1273.     ENDIF
  1274.     _oTransfrm=oForm
  1275. ENDFOR
  1276. ACTIVATE SCREEN
  1277. SET MESSAGE TO
  1278. ENDPROC
  1279. PROCEDURE Deactivate
  1280. ACTIVATE SCREEN
  1281. SET MESSAGE TO
  1282. ENDPROC
  1283. PROCEDURE Activate
  1284. RELEASE _oTransfrm
  1285. PUBLIC _oTransfrm
  1286. _oTransfrm=this
  1287. ACTIVATE SCREEN
  1288. SET MESSAGE TO
  1289. ENDPROC
  1290. PROCEDURE KeyPress
  1291. LPARAMETERS nKeyCode, nShiftAltCtrl
  1292. DO CASE
  1293.     CASE nKeyCode=23
  1294.         IF NOT this.QueryUnload()
  1295.             RETURN
  1296.         ENDIF
  1297.         this.Release()
  1298.     CASE nKeyCode=27
  1299.         this.Release()
  1300. ENDCASE
  1301. ENDPROC
  1302. PROCEDURE Error
  1303. LPARAMETERS nError, cMethod, nLine, oObject
  1304. LOCAL lcErrorMsg,lcCodeLineMsg
  1305. this.lError=.T.
  1306. WAIT CLEAR
  1307. IF this.lRelease
  1308.     this.Release()
  1309.     RETURN .F.
  1310. ENDIF
  1311. WAIT CLEAR
  1312. IF TYPE('oObject')#'O'
  1313.     oObject=this
  1314. ENDIF
  1315. lcErrorMsg=MESSAGE()+CR+CR+'Transfrm:     '+this.Name+CR+ ;
  1316.         'Object:        '+oObject.Name+CR+ ;
  1317.         'Method:       '+cMethod
  1318. lcCodeLineMsg=MESSAGE(1)
  1319. IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg='...'
  1320.     lcErrorMsg=lcErrorMsg+CR+'Line:            '+ALLTRIM(STR(nLine))
  1321.     IF NOT EMPTY(lcCodeLineMsg)
  1322.         lcErrorMsg=lcErrorMsg+CR+CR+lcCodeLineMsg
  1323.     ENDIF
  1324. ENDIF
  1325. IF MESSAGEBOX(lcErrorMsg,17,this.Caption)#1
  1326.     this.lRelease=.T.
  1327.     this.Release()
  1328.     RETURN .F.
  1329. ENDIF
  1330. ENDPROC
  1331. PROCEDURE Release
  1332. IF NOT this.QueryUnload()
  1333.     NODEFAULT
  1334.     RETURN .F.
  1335. ENDIF
  1336. ENDPROC
  1337. PROCEDURE Load
  1338. #DEFINE LOADING_LOC    'Loading '
  1339. SET TALK OFF
  1340. SET COLLATE TO 'MACHINE'
  1341. SET COMPATIBLE OFF
  1342. SET CONFIRM ON
  1343. SET DECIMALS TO 9
  1344. SET EXACT OFF
  1345. SET EXCLUSIVE OFF
  1346. SET MEMOWIDTH TO 1024
  1347. SET MULTILOCKS ON
  1348. SET POINT TO '.'
  1349. SET SAFETY OFF
  1350. SET UDFPARMS TO VALUE
  1351. WAIT CLEAR
  1352. SET MESSAGE TO LOADING_LOC+this.Caption+' ...'
  1353. ENDPROC
  1354. #transformer.pgfTransformer.fpgRules
  1355. transfrm.vcx
  1356. tflabel
  1357. #transformer.pgfTransformer.fpgRules
  1358. lblFiles
  1359. label
  1360. transfrm.vcx
  1361. TPROCEDURE Click
  1362. LOCAL lcAlias,lnLastSelect
  1363. lcAlias='Transformer'
  1364. lnLastSelect=SELECT()
  1365. IF USED(lcAlias)
  1366.     USE IN (lcAlias)
  1367. ENDIF
  1368. SELECT 0
  1369. CREATE CURSOR (lcAlias) (Log M)
  1370. APPEND BLANK
  1371. REPLACE Log WITH TRIM(this.parent.edtTransformerLog.Value)
  1372. MODIFY MEMO Log NOEDIT RANGE 1,1
  1373. USE IN (lcAlias)
  1374. SELECT (lnLastSelect)
  1375. ENDPROC
  1376. dCaption = "F\<iles:"
  1377. Height = 16
  1378. Left = 9
  1379. Top = 65
  1380. Width = 49
  1381. TabIndex = 8
  1382. Name = "lblFiles"
  1383. tflabel
  1384. THeight = 22
  1385. Left = 65
  1386. TabIndex = 6
  1387. Top = 36
  1388. Width = 296
  1389. Name = "txtCondition"
  1390. #transformer.pgfTransformer.fpgRules
  1391. txtCondition
  1392. textbox
  1393. transfrm.vcx
  1394.     tftextbox
  1395. lCaption = "Co\<ndition:"
  1396. Height = 16
  1397. Left = 9
  1398. Top = 40
  1399. Width = 54
  1400. TabIndex = 5
  1401. Name = "lblCondition"
  1402. #transformer.pgfTransformer.fpgRules
  1403. lblCondition
  1404. label
  1405. transfrm.vcx
  1406. tflabel
  1407. DLeft = 262
  1408. TabIndex = 4
  1409. Top = 11
  1410. Width = 131
  1411. Name = "txtValue"
  1412. #transformer.pgfTransformer.fpgRules
  1413. txtValue
  1414. textbox
  1415. transfrm.vcx
  1416.     tftextbox
  1417. fCaption = "\<Value:"
  1418. Height = 16
  1419. Left = 219
  1420. Top = 15
  1421. Width = 37
  1422. TabIndex = 3
  1423. Name = "lblValue"
  1424. #transformer.pgfTransformer.fpgRules
  1425. lblValue
  1426. label
  1427. transfrm.vcx
  1428. tflabel
  1429. FLeft = 65
  1430. TabIndex = 2
  1431. Top = 11
  1432. Width = 131
  1433. Name = "txtProperty"
  1434. #transformer.pgfTransformer.fpgRules
  1435. txtProperty
  1436. textbox
  1437. transfrm.vcx
  1438.     tftextbox
  1439. jCaption = "\<Property:"
  1440. Height = 16
  1441. Left = 9
  1442. Top = 15
  1443. Width = 54
  1444. TabIndex = 1
  1445. Name = "lblProperty"
  1446. #transformer.pgfTransformer.fpgRules
  1447. lblProperty
  1448. label
  1449. transfrm.vcx
  1450. tflabel
  1451. dTop = 11
  1452. Left = 414
  1453. FontSize = 8
  1454. TabIndex = 14
  1455. cobjectname = lstSelectedRules
  1456. Name = "cmdAdd"
  1457. #transformer.pgfTransformer.fpgRules
  1458. cmdAdd
  1459. commandbutton
  1460. transfrm.vcx
  1461. tfaddrulebutton
  1462. :Top = 226
  1463. Left = 9
  1464. TabIndex = 8
  1465. Name = "chkLogToFile"
  1466. #transformer.pgfTransformer.fpgFiles
  1467. chkLogToFile
  1468. checkbox
  1469. transfrm.vcx
  1470. tflogtofilecheckbox
  1471. }Top = 226
  1472. Left = 374
  1473. Height = 22
  1474. Width = 66
  1475. FontSize = 8
  1476. Caption = "\<Browse..."
  1477. TabIndex = 10
  1478. Name = "cmdLogToFile"
  1479. #transformer.pgfTransformer.fpgFiles
  1480. cmdLogToFile
  1481. commandbutton
  1482. transfrm.vcx
  1483. tflogtofileellipsis
  1484. HLeft = 89
  1485. TabIndex = 9
  1486. Top = 226
  1487. Width = 281
  1488. Name = "txtLogToFile"
  1489. #transformer.pgfTransformer.fpgFiles
  1490. PROCEDURE getitem
  1491. LOCAL lcFileName,lcnAlias
  1492. DO WHILE .T.
  1493.     lcFileName=LOWER(GETFILE(thisform.oTransform.cGetFileExt))
  1494.     IF EMPTY(lcFileName)
  1495.         RETURN ''
  1496.     ENDIF
  1497.     IF FILE(lcFileName)
  1498.         EXIT
  1499.     ENDIF
  1500. ENDDO
  1501. lcAlias='_'+SYS(3)
  1502. IF USED(lcAlias)
  1503.     USE IN (lcAlias)
  1504. ENDIF
  1505. USE (lcFileName) IN 0 ALIAS (lcAlias)
  1506. IF NOT USED(lcAlias)
  1507.     RETURN ''
  1508. ENDIF
  1509. USE IN (lcAlias)
  1510. RETURN lcFileName
  1511. ENDPROC
  1512. txtLogToFile
  1513. textbox
  1514. transfrm.vcx
  1515. tflogtofiletextbox
  1516. PROCEDURE InteractiveChange
  1517. Tfcreatelogonly::Interactivechange
  1518. this.parent.parent.fpgLog.chkCreateLogOnly.Value=this.Value
  1519. ENDPROC
  1520. PROCEDURE ProgrammaticChange
  1521. this.InteractiveChange
  1522. ENDPROC
  1523. WTop = 206
  1524. Left = 9
  1525. Width = 96
  1526. Value = .T.
  1527. TabIndex = 7
  1528. Name = "chkCreateLogOnly"
  1529. #transformer.pgfTransformer.fpgFiles
  1530. chkCreateLogOnly
  1531. checkbox
  1532. transfrm.vcx
  1533. tfcreatelogonly
  1534. XHeight = 151
  1535. Left = 9
  1536. TabIndex = 2
  1537. Top = 26
  1538. Width = 381
  1539. Name = "lstSelectedFiles"
  1540. #transformer.pgfTransformer.fpgFiles
  1541. lstSelectedFiles
  1542. listbox
  1543. transfrm.vcx
  1544. tfselectedfileslistbox
  1545. NTop = 186
  1546. Left = 9
  1547. Width = 106
  1548. TabIndex = 6
  1549. Name = "chkSearchSubfolders"
  1550. #transformer.pgfTransformer.fpgFiles
  1551. chkSearchSubfolders
  1552. checkbox
  1553. transfrm.vcx
  1554. tfsearchsubfolders
  1555. Top = 76
  1556. Left = 399
  1557. FontSize = 8
  1558. TabIndex = 5
  1559. cobjectname = lstSelectedFiles
  1560. csetfocusobjectname = cmdAddFile
  1561. Name = "cmdRemoveFile"
  1562. #transformer.pgfTransformer.fpgFiles
  1563. cmdRemoveFile
  1564. commandbutton
  1565. transfrm.vcx
  1566. tfremovefilebutton
  1567. iTop = 51
  1568. Left = 399
  1569. FontSize = 8
  1570. TabIndex = 4
  1571. cobjectname = lstSelectedFiles
  1572. Name = "cmdAddFolder"
  1573. #transformer.pgfTransformer.fpgFiles
  1574. cmdAddFolder
  1575. commandbutton
  1576. transfrm.vcx
  1577. tfaddfolderbutton
  1578. gTop = 26
  1579. Left = 399
  1580. FontSize = 8
  1581. TabIndex = 3
  1582. cobjectname = lstSelectedFiles
  1583. Name = "cmdAddFile"
  1584. #transformer.pgfTransformer.fpgFiles
  1585. cmdAddFile
  1586. commandbutton
  1587. transfrm.vcx
  1588. tfaddfilebutton
  1589. fCaption = "Selected files:"
  1590. Left = 9
  1591. Top = 11
  1592. Width = 71
  1593. TabIndex = 1
  1594. Name = "lblSelectedFiles"
  1595. #transformer.pgfTransformer.fpgFiles
  1596. lblSelectedFiles
  1597. label
  1598. transfrm.vcx
  1599. tflabel
  1600. HPROCEDURE fpgFiles.Refresh
  1601. thisform.cmdTransform.Refresh()
  1602. ENDPROC
  1603. ErasePage = .T.
  1604. PageCount = 3
  1605. Top = 10
  1606. Left = 10
  1607. Width = 481
  1608. Height = 286
  1609. TabIndex = 0
  1610. Name = "pgfTransformer"
  1611. Page1.FontName = "MS Sans Serif"
  1612. Page1.FontSize = 8
  1613. Page1.Caption = "Files"
  1614. Page1.Name = "fpgFiles"
  1615. Page2.FontName = "MS Sans Serif"
  1616. Page2.FontSize = 8
  1617. Page2.Caption = "Rules"
  1618. Page2.Name = "fpgRules"
  1619. Page3.FontName = "MS Sans Serif"
  1620. Page3.FontSize = 8
  1621. Page3.Caption = "Log"
  1622. Page3.Name = "fpgLog"
  1623. transformer
  1624. pgfTransformer
  1625.     pageframe
  1626. transfrm.vcx
  1627. tfpageframe
  1628. transfrm.vcx
  1629. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  1630. tflogeditbox
  1631. transfrm.vcx
  1632. checkbox
  1633. tfcreatelogonly
  1634. Pixels
  1635. NPROCEDURE Error
  1636. LPARAMETERS nError, cMethod, nLine
  1637. RETURN thisform.Error(nError,cMethod,nLine,this)
  1638. ENDPROC
  1639. PROCEDURE Refresh
  1640. LOCAL lnCount
  1641. FOR lnCount = 1 TO this.PageCount
  1642.     this.Pages[lnCount].BackColor=thisform.BackColor
  1643.     IF lnCount=this.ActivePage
  1644.         LOOP
  1645.     ENDIF
  1646.     this.Pages[lnCount].Refresh()
  1647. ENDFOR
  1648. ENDPROC
  1649. PROCEDURE validitem
  1650. LOCAL lcObjectName,oList
  1651. lcObjectName=this.cObjectName
  1652. oList=this.parent.&lcObjectName
  1653. IF EMPTY(lcObjectName) OR TYPE('this.parent.'+lcObjectName)#'O' OR ;
  1654.         (this.lValidateFileInList AND oList.ListCount<1) OR ;
  1655.         (this.lValidateSelect AND oList.ListIndex<1)
  1656.     RETURN .F.
  1657. ENDIF
  1658. ENDPROC
  1659. PROCEDURE Click
  1660. this.EditItem()
  1661. NODEFAULT
  1662. ENDPROC
  1663. PROCEDURE Refresh
  1664. this.Enabled=this.ValidItem()
  1665. ENDPROC
  1666. PROCEDURE additem
  1667. LPARAMETERS cItem
  1668. LOCAL lcObjectName,oObject
  1669. lcObjectName=this.cObjectName
  1670. oObject=this.parent.&lcObjectName
  1671. IF TYPE('cItem')#'C'
  1672.     cItem=this.GetItem()
  1673. ENDIF
  1674. IF EMPTY(cItem)
  1675.     RETURN .F.
  1676. ENDIF
  1677. oObject.AddItem(cItem)
  1678. ENDPROC
  1679. PROCEDURE getitem
  1680. RETURN ''
  1681. ENDPROC
  1682. PROCEDURE edititem
  1683. LOCAL lnResult
  1684. lnResult=this.AddItem()
  1685. this.parent.Refresh()
  1686. RETURN lnResult
  1687. ENDPROC
  1688. !PROCEDURE getitem
  1689. LOCAL lcObjectName,oObject,lcOldExpr,lcNewExpr
  1690. lcObjectName=this.cObjectName
  1691. oObject=this.parent.&lcObjectName
  1692. IF EMPTY(lcObjectName) OR TYPE('this.parent.'+lcObjectName)#'O'
  1693.     RETURN .F.
  1694. ENDIF
  1695. lcOldExpr=TRIM(oObject.Value)
  1696. lcNewExpr=this.GetValue(lcOldExpr)
  1697. IF lcNewExpr==lcOldExpr
  1698.     RETURN
  1699. ENDIF
  1700. oObject.Value=lcNewExpr
  1701. ENDPROC
  1702. PROCEDURE getvalue
  1703. LPARAMETERS tcOldExpr
  1704. LOCAL lcNewExpr
  1705. GETEXPR TO lcNewExpr DEFAULT tcOldExpr
  1706. RETURN TRIM(lcNewExpr)
  1707. ENDPROC
  1708. PROCEDURE Click
  1709. this.GetItem()
  1710. ENDPROC
  1711. laddruleerror
  1712. lupdated
  1713. lwindows
  1714. *addrule 
  1715. *editrule 
  1716. *getrule 
  1717. ^arule[1,0] 
  1718. *transformfiles 
  1719. *rulesetfocus 
  1720. *savesettings 
  1721. *saverules 
  1722. *openrules 
  1723. *addfontrules 
  1724. *deleterule 
  1725. *clearrule 
  1726. *trimpath 
  1727. Height = 332
  1728. Width = 500
  1729. DoCreate = .T.
  1730. HelpContextID = 489321230
  1731. lwindows = (_windows)
  1732. lmac = (_mac)
  1733. Name = "transformer"
  1734. tfcheckbox
  1735. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  1736. tfsearchsubfolders
  1737. Class
  1738. tfcheckbox
  1739. tfsearchsubfolders
  1740. KWidth = 120
  1741. Caption = "\<Search subfolders"
  1742. Name = "tfsearchsubfolders"
  1743. checkbox
  1744. transfrm.vcx
  1745. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  1746. tflogtofilecheckbox
  1747. Pixels
  1748. Class
  1749. tfcheckbox
  1750. tflogtofilecheckbox
  1751. 3PROCEDURE Click
  1752. this.parent.Refresh()
  1753. ENDPROC
  1754. FWidth = 71
  1755. Caption = "\<Log to file:"
  1756. Name = "tflogtofilecheckbox"
  1757. checkbox
  1758. transfrm.vcx
  1759. )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
  1760. EWidth = 76
  1761. Caption = "\<Create log only"
  1762. Name = "tfcreatelogonly"
  1763. tPROCEDURE removeitem
  1764. LPARAMETERS nIndex
  1765. LOCAL lcObjectName,oObject,lcSetFocusObjectName
  1766. lcObjectName=this.cObjectName
  1767. lcSetFocusObjectName=ALLTRIM(this.cSetFocusObjectName)
  1768. oObject=this.parent.&lcObjectName
  1769. IF TYPE('nIndex')#'N'
  1770.     nIndex=oObject.ListIndex
  1771. ENDIF
  1772. thisform.lUpdated=.T.
  1773. oObject.RemoveItem(nIndex)
  1774. oObject.ListIndex=MAX(nIndex-1,IIF(oObject.ListCount>0,1,0))
  1775. IF oObject.ListCount=0 AND NOT EMPTY(lcSetFocusObjectName)
  1776.     this.parent.&lcSetFocusObjectName..SetFocus()
  1777. ENDIF
  1778. ENDPROC
  1779. PROCEDURE edititem
  1780. LOCAL lnResult
  1781. lnResult=this.RemoveItem()
  1782. this.parent.Refresh()
  1783. RETURN lnResult
  1784. ENDPROC
  1785. PROCEDURE AddItem
  1786. LPARAMETERS cItem
  1787. LOCAL lnCount,lcItem
  1788. IF EMPTY(cItem)
  1789.     NODEFAULT
  1790.     RETURN .F.
  1791. ENDIF
  1792. FOR lnCount = 1 TO this.ListCount
  1793.     IF LOWER(this.List[lnCount])==LOWER(cItem)
  1794.         NODEFAULT
  1795.         this.ListIndex=lnCount
  1796.         RETURN .F.
  1797.     ENDIF
  1798. ENDFOR
  1799. ListBox::AddItem(cItem)
  1800. NODEFAULT
  1801. FOR lnCount = 1 TO this.ListCount
  1802.     lcItem=this.List[lnCount]
  1803.     IF lcItem==cItem
  1804.         this.ListIndex=lnCount
  1805.         RETURN
  1806.     ENDIF
  1807. ENDFOR
  1808. ENDPROC
  1809. PROCEDURE Click
  1810. this.parent.Refresh()
  1811. ENDPROC
  1812. tcPropertyb
  1813. tcValueb
  1814. tcConditionb
  1815. tcFilesb
  1816. tlExcludeFilesb
  1817. tcClassesb
  1818. tlExcludeClassesb
  1819. tlOverridePropertyDefaultsb
  1820. Invalid rule.
  1821. Rule string too long.
  1822. TCPROPERTY
  1823. TCVALUE
  1824. TCCONDITION
  1825. TCFILES
  1826. TLEXCLUDEFILES    
  1827. TCCLASSES
  1828. TLEXCLUDECLASSES
  1829. TLOVERRIDEPROPERTYDEFAULTS
  1830. LCPROPERTY
  1831. LCVALUE
  1832. LCCONDITION
  1833. LCFILES
  1834. LLEXCLUDEFILES    
  1835. LCCLASSES
  1836. LLEXCLUDECLASSES
  1837. LLOVERRIDEPROPERTYDEFAULTS
  1838. LCRULETEXT
  1839. ORULESPAGE
  1840. LNPARAMETERS
  1841. LADDRULEERROR
  1842. PGFTRANSFORMER
  1843. FPGRULES
  1844. TXTPROPERTY
  1845. VALUE
  1846. TXTVALUE
  1847. TXTCONDITION
  1848. CBOFILES
  1849. DISPLAYVALUE
  1850. CHKEXCLUDEFILES
  1851. CBOCLASSES
  1852. CHKEXCLUDECLASSES
  1853. CHKOVERRIDEPROPERTYDEFAULTS
  1854. ACTIVEPAGE    
  1855. PAGEORDER
  1856. RULESETFOCUS
  1857. CAPTION
  1858. LUPDATED
  1859. THISFORM
  1860. DELETERULE?
  1861. ORULESPAGE
  1862. LUPDATED
  1863. PGFTRANSFORMER
  1864. FPGRULES
  1865. DELETERULE
  1866. GETRULE
  1867. TXTPROPERTY
  1868. VALUE
  1869. ARULE
  1870. TXTVALUE
  1871. TXTCONDITION
  1872. CBOFILES
  1873. DISPLAYVALUE
  1874. CHKEXCLUDEFILES
  1875. CBOCLASSES
  1876. CHKEXCLUDECLASSES
  1877. CHKOVERRIDEPROPERTYDEFAULTS    
  1878. CMDREMOVE
  1879. REMOVEITEM
  1880. REFRESH
  1881. RULESETFOCUS&
  1882. tcRuleTextb
  1883. TCRULETEXT
  1884. LCRULETEXT
  1885. LNATPOS
  1886. LNSEPARATORLEN
  1887. LNEXCLUDELEN
  1888. LNINCLUDELEN
  1889. LCFILES    
  1890. LCCLASSES
  1891. ARULE
  1892. PGFTRANSFORMER
  1893. FPGRULES
  1894. LSTSELECTEDRULES
  1895. DISPLAYVALUE
  1896. LMACR
  1897. LADDRULEERROR
  1898. PGFTRANSFORMER
  1899. FPGRULES
  1900. CMDADD
  1901. ADDITEM
  1902. OTRANSFORM
  1903. PGFTRANSFORMER
  1904. FPGRULES
  1905. TXTPROPERTY
  1906. SELSTART    
  1907. SELLENGTH
  1908. SETFOCUS
  1909. Do you want to save changes to selected rules?
  1910. LNRESULT
  1911. LUPDATED
  1912. CAPTION    
  1913. SAVERULES
  1914. Save Rules
  1915. Ruleb
  1916. File '
  1917. ' invalid.
  1918. LCFILENAME
  1919. LNLASTSELECT
  1920. LCALIAS
  1921. OLISTBOX
  1922. LNCOUNT
  1923. LCRULE
  1924. LADDRULEERROR
  1925. PGFTRANSFORMER
  1926. FPGRULES
  1927. CMDADD
  1928. ADDITEM
  1929. CAPTION
  1930. LSTSELECTEDRULES    
  1931. LISTCOUNT
  1932. LUPDATED
  1933. REFRESH
  1934. Ruleb
  1935. File '
  1936. ' invalid.
  1937. LCFILENAME
  1938. LNLASTSELECT
  1939. LCALIAS
  1940. OLISTBOX
  1941. CAPTION
  1942. PGFTRANSFORMER
  1943. FPGRULES
  1944. LSTSELECTEDRULES
  1945. CLEAR
  1946. ADDITEM
  1947. RULE    
  1948. LISTCOUNT    
  1949. LISTINDEX
  1950. REFRESHS
  1951. LADDRULEERROR
  1952. PGFTRANSFORMER
  1953. FPGRULES
  1954. CMDADD
  1955. ADDITEM
  1956. OTRANSFORM
  1957. PGFTRANSFORMER
  1958. FPGRULES
  1959. TXTPROPERTY
  1960. VALUE
  1961. TXTVALUE
  1962. TXTCONDITION
  1963. CBOFILES
  1964. DISPLAYVALUE
  1965. CHKEXCLUDEFILES
  1966. CBOCLASSES
  1967. CHKEXCLUDECLASSES
  1968. CHKOVERRIDEPROPERTYDEFAULTS0
  1969. DELETERULE
  1970. PGFTRANSFORMER
  1971. FPGRULES
  1972. REFRESH
  1973. RULESETFOCUS
  1974. TCFILENAME
  1975. LCFILENAME
  1976. LNATPOS
  1977. HelpContextID
  1978. MS Sans Serif
  1979. MS Sans Serif
  1980. MS Sans Serif
  1981. MS Sans Serif
  1982. fontname
  1983. Arial
  1984. TFDIALOG
  1985. SETALL
  1986. HELPCONTEXTID$
  1987. SAVESETTINGS
  1988. addrule,
  1989. editrule
  1990. getrule0
  1991. transformfiles
  1992. rulesetfocus
  1993. savesettingsB
  1994. saverules1
  1995. openrules
  1996. addfontrules&
  1997. deleterule
  1998. clearrule
  1999. trimpath
  2000. QueryUnload
  2001. %XPROCEDURE addrule
  2002. #DEFINE INVALIDRULE_LOC    'Invalid rule.'
  2003. LPARAMETERS tcProperty,tcValue,tcCondition,tcFiles,tlExcludeFiles, ;
  2004.         tcClasses,tlExcludeClasses,tlOverridePropertyDefaults
  2005. LOCAL lcProperty,lcValue,lcCondition,lcFiles,llExcludeFiles
  2006. LOCAL lcClasses,llExcludeClasses,llOverridePropertyDefaults
  2007. LOCAL lcRuleText,oRulesPage,lnParameters
  2008. lnParameters=PARAMETERS()
  2009. this.lAddRuleError=.F.
  2010. oRulesPage=this.pgfTransformer.fpgRules
  2011. IF lnParameters=0
  2012.     lcProperty=TRIM(oRulesPage.txtProperty.Value)
  2013.     lcValue=TRIM(oRulesPage.txtValue.Value)
  2014.     lcCondition=TRIM(oRulesPage.txtCondition.Value)
  2015.     lcFiles=TRIM(oRulesPage.cboFiles.DisplayValue)
  2016.     llExcludeFiles=oRulesPage.chkExcludeFiles.Value
  2017.     lcClasses=TRIM(oRulesPage.cboClasses.DisplayValue)
  2018.     llExcludeClasses=oRulesPage.chkExcludeClasses.Value
  2019.     llOverridePropertyDefaults=oRulesPage.chkOverridePropertyDefaults.Value
  2020.     lcProperty=IIF(TYPE('tcProperty')=='C',tcProperty,'')
  2021.     lcValue=IIF(TYPE('tcValue')=='C',tcValue,'')
  2022.     lcCondition=IIF(TYPE('tcCondition')=='C',tcCondition,'')
  2023.     lcFiles=IIF(TYPE('tcFiles')=='C',tcFiles,'')
  2024.     llExcludeFiles=IIF(TYPE('tlExcludeFiles')=='L',tlExcludeFiles,.F.)
  2025.     lcClasses=IIF(TYPE('tcClasses')=='C',tcClasses,'')
  2026.     llExcludeClasses=IIF(TYPE('tlExcludeClasses')=='L',tlExcludeClasses,.F.)
  2027.     llOverridePropertyDefaults=IIF(TYPE('tlOverridePropertyDefaults')=='L', ;
  2028.             tlOverridePropertyDefaults,.F.)
  2029. ENDIF
  2030. IF (NOT EMPTY(lcProperty) AND EMPTY(lcValue)) OR ;
  2031.         (EMPTY(lcProperty) AND NOT EMPTY(lcValue)) OR ;
  2032.         (EMPTY(lcProperty) AND NOT EMPTY(lcCondition))
  2033.     this.lAddRuleError=.T.
  2034.     this.pgfTransformer.ActivePage= ;
  2035.             this.pgfTransformer.fpgRules.PageOrder
  2036.     IF lnParameters=0
  2037.         this.RuleSetFocus()
  2038.         MESSAGEBOX(INVALIDRULE_LOC,16,this.Caption)
  2039.     ENDIF
  2040.     RETURN ''
  2041. ENDIF
  2042. IF EMPTY(lcProperty) AND EMPTY(lcFiles) AND EMPTY(lcClasses) AND ;
  2043.         NOT llOverridePropertyDefaults
  2044.     IF lnParameters=0
  2045.         this.RuleSetFocus()
  2046.     ENDIF
  2047.     RETURN ''
  2048. ENDIF
  2049. this.lUpdated=.T.
  2050. lcRuleText=''
  2051. IF NOT EMPTY(lcProperty)
  2052.     lcRuleText=lcRuleText+lcProperty
  2053. ENDIF
  2054. lcRuleText=lcRuleText+RULE_SEPARATOR
  2055. IF NOT EMPTY(lcValue)
  2056.     lcRuleText=lcRuleText+lcValue
  2057. ENDIF
  2058. lcRuleText=lcRuleText+RULE_SEPARATOR
  2059. IF NOT EMPTY(lcCondition)
  2060.     lcRuleText=lcRuleText+lcCondition
  2061. ENDIF
  2062. lcRuleText=lcRuleText+RULE_SEPARATOR
  2063. IF NOT EMPTY(lcFiles)
  2064.     IF llExcludeFiles
  2065.         lcFiles=RULE_EXCLUDE+lcFiles
  2066.     ENDIF
  2067.     lcRuleText=lcRuleText+lcFiles
  2068. ENDIF
  2069. lcRuleText=lcRuleText+RULE_SEPARATOR
  2070. IF NOT EMPTY(lcClasses)
  2071.     IF llExcludeClasses
  2072.         lcClasses=RULE_EXCLUDE+lcClasses
  2073.     ENDIF
  2074.     lcRuleText=lcRuleText+lcClasses
  2075. ENDIF
  2076. IF llOverridePropertyDefaults
  2077.     lcRuleText=lcRuleText+RULE_INCLUDE
  2078. ENDIF
  2079. lcRuleText=ALLTRIM(lcRuleText)
  2080. IF LEN(lcRuleText)>255
  2081.     IF lnParameters=0
  2082.         WAIT CLEAR
  2083.         =MESSAGEBOX('Rule string too long.',48,thisform.Caption)
  2084.         this.RuleSetFocus()
  2085.     ENDIF
  2086.     RETURN ''
  2087. ENDIF
  2088. IF lnParameters=0
  2089.     this.DeleteRule()
  2090.     this.RuleSetFocus()
  2091. ENDIF
  2092. RETURN lcRuleText
  2093. ENDPROC
  2094. PROCEDURE editrule
  2095. LOCAL oRulesPage
  2096. this.lUpdated=.T.
  2097. oRulesPage=this.pgfTransformer.fpgRules
  2098. this.DeleteRule()
  2099. this.GetRule()
  2100. oRulesPage.txtProperty.Value=this.aRule[1]
  2101. oRulesPage.txtValue.Value=this.aRule[2]
  2102. oRulesPage.txtCondition.Value=this.aRule[3]
  2103. oRulesPage.cboFiles.DisplayValue=this.aRule[4]
  2104. oRulesPage.chkExcludeFiles.Value=this.aRule[5]
  2105. oRulesPage.cboClasses.DisplayValue=this.aRule[6]
  2106. oRulesPage.chkExcludeClasses.Value=this.aRule[7]
  2107. oRulesPage.chkOverridePropertyDefaults.Value=this.aRule[8]
  2108. oRulesPage.cmdRemove.RemoveItem()
  2109. oRulesPage.Refresh()
  2110. this.RuleSetFocus()
  2111. ENDPROC
  2112. PROCEDURE getrule
  2113. LPARAMETERS tcRuleText
  2114. LOCAL lcRuleText,lnAtPos,lnSeparatorLen,lnExcludeLen,lnIncludeLen
  2115. LOCAL lcFiles,lcClasses
  2116. DIMENSION this.aRule[8]
  2117. this.aRule=''
  2118. IF TYPE('tcRuleText')=='C'
  2119.     lcRuleText=tcRuleText
  2120.     lcRuleText=this.pgfTransformer.fpgRules.lstSelectedRules.DisplayValue
  2121. ENDIF
  2122. IF this.lMac
  2123.     lcRuleText=STRTRAN(lcRuleText,RULE_CODE_MAC,RULE_CODE_WIN)
  2124. ENDIF
  2125. lnSeparatorLen=LEN(RULE_SEPARATOR)
  2126. lnExcludeLen=LEN(RULE_EXCLUDE)
  2127. lnIncludeLen=LEN(RULE_INCLUDE)
  2128. lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
  2129. this.aRule[1]=LEFT(lcRuleText,lnAtPos-1)
  2130. lcRuleText=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
  2131. lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
  2132. this.aRule[2]=LEFT(lcRuleText,lnAtPos-1)
  2133. lcRuleText=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
  2134. lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
  2135. this.aRule[3]=LEFT(lcRuleText,lnAtPos-1)
  2136. lcRuleText=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
  2137. lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
  2138. lcFiles=LEFT(lcRuleText,lnAtPos-1)
  2139. IF LEFT(lcFiles,lnExcludeLen)==RULE_EXCLUDE
  2140.     lcFiles=SUBSTR(lcFiles,lnExcludeLen+1)
  2141.     this.aRule[5]=.T.
  2142.     this.aRule[5]=.F.
  2143. ENDIF
  2144. this.aRule[4]=lcFiles
  2145. lcClasses=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
  2146. IF LEFT(lcClasses,lnExcludeLen)==RULE_EXCLUDE
  2147.     lcClasses=SUBSTR(lcClasses,lnExcludeLen+1)
  2148.     this.aRule[7]=.T.
  2149.     this.aRule[7]=.F.
  2150. ENDIF
  2151. IF RIGHT(lcClasses,lnIncludeLen)==RULE_INCLUDE
  2152.     this.aRule[6]=LEFT(lcClasses,LEN(lcClasses)-lnIncludeLen)
  2153.     this.aRule[8]=.T.
  2154.     this.aRule[6]=lcClasses
  2155.     this.aRule[8]=.F.
  2156. ENDIF
  2157. ENDPROC
  2158. PROCEDURE transformfiles
  2159. this.lAddRuleError=.F.
  2160. this.pgfTransformer.fpgRules.cmdAdd.AddItem()
  2161. IF this.lAddRuleError
  2162.     RETURN .F.
  2163. ENDIF
  2164. RETURN this.oTransform.Do()
  2165. ENDPROC
  2166. PROCEDURE rulesetfocus
  2167. WITH this.pgfTransformer.fpgRules.txtProperty
  2168.     .SelStart=0
  2169.     .SelLength=0
  2170.     .SetFocus()
  2171. ENDWITH
  2172. ENDPROC
  2173. PROCEDURE savesettings
  2174. #DEFINE SAVECHANGES_LOC    'Do you want to save changes to selected rules?'
  2175. LOCAL lnResult
  2176. IF NOT this.lUpdated
  2177.     RETURN
  2178. ENDIF
  2179. lnResult=MESSAGEBOX(SAVECHANGES_LOC,35, ;
  2180.         this.Caption)
  2181. IF lnResult=7
  2182.     this.lUpdated=.F.
  2183.     RETURN
  2184. ENDIF
  2185. IF lnResult#6 OR NOT this.SaveRules()
  2186.     NODEFAULT
  2187.     RETURN .F.
  2188. ENDIF
  2189. ENDPROC
  2190. PROCEDURE saverules
  2191. #DEFINE    FILE_LOC    "File '"
  2192. #DEFINE INVALID_LOC    "' invalid."
  2193. #DEFINE SAVERULES_LOC    'Save Rules'
  2194. LOCAL lcFileName,lnLastSelect,lcAlias,oListBox,lnCount,lcRule
  2195. this.lAddRuleError=.F.
  2196. this.pgfTransformer.fpgRules.cmdAdd.AddItem()
  2197. IF this.lAddRuleError
  2198.     RETURN .F.
  2199. ENDIF
  2200. lcFileName=LOWER(PUTFILE(SAVERULES_LOC,'','dbf'))
  2201. IF EMPTY(lcFileName)
  2202.     RETURN .F.
  2203. ENDIF
  2204. lnLastSelect=SELECT()
  2205. IF NOT FILE(lcFileName)
  2206.     CREATE TABLE (lcFileName) (Rule C(254))
  2207. ENDIF
  2208. lcAlias='_'+SYS(3)
  2209. IF USED(lcAlias)
  2210.     USE IN (lcAlias)
  2211. ENDIF
  2212. SELECT 0
  2213. USE (lcFileName) EXCLUSIVE ALIAS (lcAlias)
  2214. IF NOT USED(lcAlias)
  2215.     SELECT (lnLastSelect)
  2216.     RETURN .F.
  2217. ENDIF
  2218. IF TYPE('Rule')#'C'
  2219.     USE IN (lcAlias)
  2220.     SELECT (lnLastSelect)
  2221.     MESSAGEBOX(FILE_LOC+lcFileName+INVALID_LOC,16,this.Caption)
  2222.     RETURN .F.
  2223. ENDIF
  2224. SET MESSAGE TO ' '
  2225. oListBox=this.pgfTransformer.fpgRules.lstSelectedRules
  2226. FOR lnCount = 1 TO oListBox.ListCount
  2227.     lcRule=ALLTRIM(oListBox.List[lnCount])
  2228.     IF this.lMac
  2229.         lcRule=STRTRAN(lcRule,RULE_CODE_MAC,RULE_CODE_WIN)
  2230.     ENDIF
  2231.     APPEND BLANK
  2232.     REPLACE Rule WITH lcRule
  2233. ENDFOR
  2234. USE IN (lcAlias)
  2235. SELECT (lnLastSelect)
  2236. SET MESSAGE TO
  2237. this.lUpdated=.F.
  2238. this.pgfTransformer.fpgRules.Refresh()
  2239. ENDPROC
  2240. PROCEDURE openrules
  2241. #DEFINE    FILE2_LOC    "File '"
  2242. #DEFINE INVALID2_LOC    "' invalid."
  2243. LOCAL lcFileName,lnLastSelect,lcAlias,oListBox
  2244. lnLastSelect=SELECT()
  2245. DO WHILE .T.
  2246.     lcFileName=LOWER(GETFILE('dbf'))
  2247.     IF EMPTY(lcFileName)
  2248.         RETURN .F.
  2249.     ENDIF
  2250.     IF FILE(lcFileName)
  2251.         EXIT
  2252.     ENDIF
  2253. ENDDO
  2254. lcAlias='_'+SYS(3)
  2255. IF USED(lcAlias)
  2256.     USE IN (lcAlias)
  2257. ENDIF
  2258. SELECT 0
  2259. USE (lcFileName) AGAIN SHARED ALIAS (lcAlias)
  2260. IF NOT USED(lcAlias)
  2261.     SELECT (lnLastSelect)
  2262.     RETURN .F.
  2263. ENDIF
  2264. IF TYPE('Rule')#'C'
  2265.     USE IN (lcAlias)
  2266.     SELECT (lnLastSelect)
  2267.     MESSAGEBOX(FILE2_LOC+lcFileName+INVALID2_LOC,16,this.Caption)
  2268.     RETURN .F.
  2269. ENDIF
  2270. SET MESSAGE TO ' '
  2271. SET FILTER TO NOT DELETED()
  2272. LOCATE
  2273. oListBox=this.pgfTransformer.fpgRules.lstSelectedRules
  2274. oListBox.Clear()
  2275. SCAN ALL
  2276.     oListBox.AddItem(ALLTRIM(Rule))
  2277. ENDSCAN
  2278. IF oListBox.ListCount>0
  2279.     oListBox.ListIndex=1
  2280. ENDIF
  2281. USE IN (lcAlias)
  2282. SELECT (lnLastSelect)
  2283. SET MESSAGE TO
  2284. this.pgfTransformer.fpgRules.Refresh()
  2285. ENDPROC
  2286. PROCEDURE addfontrules
  2287. this.lAddRuleError=.F.
  2288. this.pgfTransformer.fpgRules.cmdAdd.AddItem()
  2289. IF this.lAddRuleError
  2290.     RETURN .F.
  2291. ENDIF
  2292. RETURN this.oTransform.Do(.T.)
  2293. ENDPROC
  2294. PROCEDURE deleterule
  2295. WITH this.pgfTransformer.fpgRules
  2296.     .txtProperty.Value=''
  2297.     .txtValue.Value=''
  2298.     .txtCondition.Value=''
  2299.     .cboFiles.DisplayValue=''
  2300.     .chkExcludeFiles.Value=.F.
  2301.     .cboClasses.DisplayValue=''
  2302.     .chkExcludeClasses.Value=.F.
  2303.     .chkOverridePropertyDefaults.Value=.F.
  2304. ENDWITH
  2305. ENDPROC
  2306. PROCEDURE clearrule
  2307. this.DeleteRule()
  2308. this.pgfTransformer.fpgRules.Refresh()
  2309. this.RuleSetFocus()
  2310. ENDPROC
  2311. PROCEDURE trimpath
  2312. LPARAMETERS tcFileName
  2313. LOCAL lcFileName,lnAtPos
  2314. IF EMPTY(tcFileName)
  2315.     RETURN ''
  2316. ENDIF
  2317. lcFileName=tcFileName
  2318. lnAtPos=AT(':',lcFileName)
  2319. IF lnAtPos>0
  2320.     lcFileName=SUBSTR(lcFileName,lnAtPos+1)
  2321. ENDIF
  2322. lcFileName=ALLTRIM(SUBSTR(lcFileName,AT('\',lcFileName,;
  2323.         MAX(OCCURS('\',lcFileName),1))+1))
  2324. DO WHILE LEFT(lcFileName,1)=='.'
  2325.     lcFileName=ALLTRIM(SUBSTR(lcFileName,2))
  2326. ENDDO
  2327. DO WHILE RIGHT(lcFileName,1)=='.'
  2328.     lcFileName=ALLTRIM(LEFT(lcFileName,LEN(lcFileName)-1))
  2329. ENDDO
  2330. RETURN lcFileName
  2331. ENDPROC
  2332. PROCEDURE Init
  2333. Tfdialog::Init
  2334. this.SetAll('HelpContextID',this.HelpContextID)
  2335. IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
  2336.     fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
  2337.     fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
  2338.     fontmetric(7, 'MS Sans Serif', 8, '') # 11
  2339.     this.setall('fontname', 'Arial')
  2340. ENDIF
  2341. ENDPROC
  2342. PROCEDURE QueryUnload
  2343. IF NOT this.SaveSettings()
  2344.     NODEFAULT
  2345.     RETURN .F.
  2346. ENDIF
  2347. ENDPROC
  2348. Pixels
  2349. transfrm.vcx
  2350. editbox
  2351. Class
  2352. 'ReadOnly = .T.
  2353. Name = "tflogeditbox"
  2354. WPROCEDURE When
  2355. IF this.ReadOnly AND EMPTY(this.Value)
  2356.     RETURN .F.
  2357. ENDIF
  2358. ENDPROC
  2359.     tfeditbox
  2360. tflogeditbox
  2361. TALKv
  2362. ESCAPEv
  2363. UDFPARMSv
  2364. MACHINE
  2365. CLASSLIBv
  2366. PROCEDUREv
  2367. tcFormClassb
  2368. Transformer
  2369. tcTransformClassb
  2370. TransformFiles
  2371. transfrm
  2372. oFormb
  2373. oForm.oTransformb
  2374. oTransform
  2375. oTransform
  2376. oForm.oTransformb
  2377. CLASSLIBv
  2378. PROCEDUREv
  2379. lcLastSetUDFParmsb
  2380. REFERENCE
  2381. lcLastSetESCb
  2382. lcLastSetTalkb
  2383. llAbortb
  2384. TCFORMCLASS
  2385. TCTRANSFORMCLASS
  2386. LCFORMCLASS
  2387. LCTRANSFORMCLASS
  2388. LCFORMCLASSLIBRARY
  2389. OFORM
  2390. LCPROGRAMNAME
  2391. LNATPOS
  2392. LLABORT
  2393. LCLASTSETCLASSLIB
  2394. LCLASTSETPROCEDURE
  2395. LCLASTSETTALK
  2396. LCLASTSETESC
  2397. LCLASTSETUDFPARMS
  2398. LAINSTANCES
  2399. LCTRANSFORMCLASSLIBRARY
  2400. FILENOTFOUNDMSG    
  2401. ADDOBJECT
  2402. OTRANSFORM
  2403. tcMessageb
  2404. tnTypeb
  2405. tcTitleb
  2406. Visual FoxPro Transformer6
  2407. TCMESSAGE
  2408. TNTYPE
  2409. TCTITLE    
  2410. LCMESSAGE
  2411. LNRESULT
  2412. LNTYPE
  2413. LCTITLE3
  2414. File 'C
  2415. ' not found.
  2416. TCFILENAME
  2417. SHOWMSGBOX
  2418. Transformer may permanently alter files. Backup of files to be processed is recommended.  Continue?
  2419. Process aborted due to error.
  2420. Process aborted manually.
  2421. No files
  2422. 1 File
  2423.  files
  2424. scanned
  2425. processed6
  2426.  seconds.
  2427. No font rules
  2428.  font rule
  2429.  added.
  2430. Transformer Add Font Rules
  2431. {DNARROW}
  2432. TLADDFONTRULES
  2433. LCMSG
  2434. PARENT
  2435. LERROR
  2436. LLASTLOCKSCREEN
  2437. LOCKSCREEN
  2438. LADDFONTRULES
  2439. LSEARCHSUBFOLDERS
  2440. PGFTRANSFORMER
  2441. FPGFILES
  2442. CHKSEARCHSUBFOLDERS
  2443. VALUE
  2444. LCREATELOGONLY
  2445. CHKCREATELOGONLY
  2446. LLOGTOFILE
  2447. CHKLOGTOFILE
  2448. CLOGTOFILE
  2449. TXTLOGTOFILE
  2450. NFILECOUNT
  2451. LSTSELECTEDFILES    
  2452. LISTCOUNT
  2453. NOFILESERRORMSG
  2454. SHOWMSGBOX
  2455. NSTARTSECONDS
  2456. INITALIZERULES
  2457. PROCESSSTART
  2458. PROCESSFILELIST
  2459. ADDTEXT
  2460. NENDSECONDS
  2461. CTEXT
  2462. NTRANSFORMEDFILECOUNT
  2463. PROCESSEND
  2464. DISPLAYTEXT
  2465. REFRESH
  2466. NFONTMATCHCOUNT
  2467. FPGLOG
  2468. EDTTRANSFORMERLOG
  2469. SETFOCUS5
  2470. TCMATCHEXPLIST
  2471. TCEXPRESSIONSEARCHED
  2472. LCMATCHEXPLIST
  2473. LCMATCHEXP
  2474. LCEXPRESSIONSEARCHED
  2475. LNMATCHLEN
  2476. LNEXPRESSIONLEN
  2477. LNMATCHCOUNT
  2478. LNCOUNT
  2479. LNCOUNT2
  2480. LNATPOSA
  2481. TCFILENAME    
  2482. TLTRIMEXT
  2483. LCFILENAME
  2484. LNATPOS
  2485. TRIMEXT
  2486. TCFILENAME
  2487. LCFILENAME
  2488. LNATPOS
  2489. LNATPOS2/
  2490. TNERROR
  2491. TCMETHOD
  2492. TNLINE
  2493. THISFORM
  2494. ERROR
  2495. THISn
  2496. tcValueb
  2497. caption
  2498. comment
  2499. fontname
  2500. controlsource
  2501. recordsource
  2502. format
  2503. inputmask
  2504. statusbartext
  2505. tooltiptext
  2506. memowindow
  2507. passwordchar
  2508. columnwidths
  2509. rowsource
  2510. lineslant
  2511. childorder
  2512. linkmaster
  2513. dynamicbackcolor
  2514. dynamicforecolor
  2515. dynamicfontbold
  2516. dynamicfontitalic
  2517. dynamicfontname
  2518. dynamicfontoutline
  2519. dynamicfontsize
  2520. dynamicfontshadow
  2521. dynamicfontstrikethru
  2522. dynamicfontunderline
  2523. dynamicalignment
  2524. dynamiccurrentcontrol
  2525. hostname
  2526. relationalexpr
  2527. TCPROPERTY
  2528. TCVALUE
  2529. LCVALUE
  2530. LCTYPEn
  2531. Scanning ...
  2532. Scanning: 
  2533. TCTEXT8
  2534. There are no files to process.
  2535. SHOWMSGBOX
  2536. PARENT
  2537. CAPTION.
  2538. LADDFONTRULES
  2539. CTEXT{
  2540. tnLinesb
  2541. TCTEXT
  2542. TNLINES
  2543. LNLINES
  2544. LADDFONTRULES
  2545. CTEXT
  2546.     <<this.cText+CHR(13)>>
  2547. LCFILENAME
  2548. LADDFONTRULES
  2549. CLOGTOFILE
  2550. LLOGTOFILE5
  2551. Transformer Log Start
  2552. THIS    
  2553. TITLETEXT
  2554. LINEBREAKTEXT3
  2555. Transformer Log End
  2556. LINEBREAKTEXT    
  2557. TITLETEXT6
  2558.  ***  
  2559. TCTEXT
  2560. ADDTEXT;
  2561. Unabled to process file:  
  2562. TCFILENAME
  2563. ADDTEXT
  2564. ADDTEXT=
  2565. LADDFONTRULES
  2566. PARENT
  2567. PGFTRANSFORMER
  2568. FPGLOG
  2569. EDTTRANSFORMERLOG
  2570. VALUE
  2571. CTEXT
  2572. LCITEM
  2573. LNCOUNT
  2574. LCFILES    
  2575. LCCLASSES
  2576. NRULECOUNT
  2577. PARENT
  2578. PGFTRANSFORMER
  2579. FPGRULES
  2580. LSTSELECTEDRULES    
  2581. LISTCOUNT
  2582. ARULES
  2583. NFILERULECOUNT    
  2584. AFILERULE
  2585. AEXCLUDEFILESRULE
  2586. NCLASSRULECOUNT
  2587. ACLASSRULE
  2588. AEXCLUDECLASSESRULE
  2589. LOVERRIDEPROPERTYDEFAULTS
  2590. GETRULE
  2591. ARULE
  2592. NFONTMATCHCOUNT
  2593. LNFILENO
  2594. LCFILENAME
  2595. DISPLAYMESSAGE    
  2596. CLEARTEXT
  2597. DISPLAYTEXT
  2598. LADDFONTRULES
  2599. PARENT
  2600. PGFTRANSFORMER
  2601. ACTIVEPAGE
  2602. FPGRULES    
  2603. PAGEORDER
  2604. LSTSELECTEDRULES
  2605. SETFOCUS
  2606. LOCKSCREEN
  2607. FPGLOG
  2608. EDTTRANSFORMERLOG    
  2609. CFILENAME
  2610. NPROCESSEDFILECOUNT
  2611. APROCESSEDFILES
  2612. NTRANSFORMEDFILECOUNT    
  2613. AFILELIST
  2614. NFILECOUNT
  2615. FPGFILES
  2616. LSTSELECTEDFILES
  2617. HEADERTEXT+
  2618. FOOTERTEXT    
  2619. LOGTOFILE
  2620. DISPLAYMESSAGE
  2621. LNFILENO
  2622. LCFILENAME
  2623. NFILECOUNT
  2624. PARENT
  2625. LERROR    
  2626. AFILELIST
  2627. PROCESSFILE
  2628. PROCESSFOLDER
  2629. TCFOLDERNAME
  2630. LNFILECOUNT
  2631. LNFILENO
  2632. LCFILENAME
  2633. LCATTRIB
  2634. LAFILES
  2635. PARENT
  2636. LERROR
  2637. DISPLAYMESSAGE
  2638. LSEARCHSUBFOLDERS
  2639. PROCESSFOLDER
  2640. PROCESSFILE
  2641. Unabled to process read-only file:  
  2642. Project:  
  2643. Class Library:  
  2644. Form:  
  2645. Menu:  
  2646. Report:  
  2647. COMMENT 
  2648. dataenvironment
  2649. cursor
  2650. relation
  2651. COMMENT 
  2652. FONTINFO  
  2653. COMMENT 
  2654. FONTINFO  
  2655. TCFILENAME
  2656. LCFILENAME    
  2657. LCFILEEXT
  2658. LCFILEEXT2
  2659. LCATTRIB    
  2660. LCOBJNAME
  2661. LCBASECLASS    
  2662. LCCLASSES
  2663. LNRECNO
  2664. LCGETFILELIST
  2665. LNLASTSELECT
  2666. LCALIAS
  2667. LNCOUNT
  2668. LLMATCH
  2669. LLWILDCARDMATCH
  2670. LAFILES
  2671. PARENT
  2672. LERROR
  2673. NPROCESSEDFILECOUNT
  2674. APROCESSEDFILES
  2675. TRIMPATH
  2676. NFILERULECOUNT
  2677. WILDCARDMATCH    
  2678. AFILERULE
  2679. AEXCLUDEFILESRULE
  2680. CGETFILEEXT
  2681. ADDTEXT
  2682. UNABLETOPROCESSFILETEXT
  2683. DISPLAYMESSAGE
  2684. PROCESSFILE
  2685. NTRANSFORMEDFILECOUNT    
  2686. CFILENAME
  2687. PROCESSMENURULES
  2688. PROCESSREPORTRULES
  2689. PLATFORM
  2690. OBJNAME    
  2691. BASECLASS
  2692. NCLASSRULECOUNT
  2693. ACLASSRULE
  2694. AEXCLUDECLASSESRULE
  2695. LADDFONTRULES
  2696. PROCESSRULES
  2697. UNIQUEID
  2698. ADDFONTRULES
  2699. tcFileNameb
  2700. tcObjNameb
  2701. _WINDOWS
  2702. _MAC6
  2703. FontName
  2704. FontSizeCC
  2705. TCFILENAME    
  2706. TCOBJNAME
  2707. LCFILENAME    
  2708. LCOBJNAME
  2709. LCFONTINFO
  2710. LNFONTSTYLE
  2711. LCPROPERTIES
  2712. OLISTBOX
  2713. LCPROPERTY
  2714. LCVALUE
  2715. LCCONDITION
  2716. LCFONTNAME
  2717. LCFONTSTYLE
  2718. LNFONTSIZE
  2719. LNHEIGHT
  2720. LNWIDTH
  2721. LCFONTNAME2
  2722. LCFONTSTYLE2
  2723. LNFONTSIZE2    
  2724. LNHEIGHT2
  2725. LNWIDTH2
  2726. LNFM1
  2727. LNFM5
  2728. LNFM6
  2729. LNFONTNO
  2730. LNFONTSIZECOUNT
  2731. LNFONTSIZENO
  2732. LNATPOS
  2733. LAFONT
  2734. LAFONTS
  2735. PARENT
  2736. PGFTRANSFORMER
  2737. FPGRULES
  2738. LSTSELECTEDRULES
  2739. PROPERTIES
  2740. ADDITEM
  2741. ADDRULE
  2742. NFONTMATCHCOUNTI
  2743. .name = C
  2744.     CC
  2745.     6
  2746. (IIF(
  2747. (IIF(
  2748. name = 
  2749. .name = 
  2750. LCITEM
  2751. LCFILENAME    
  2752. LCOBJNAME
  2753. LCCLASS
  2754. LCBASECLASS
  2755. LCPARENT
  2756. LLWILDCARDMATCH
  2757. LNRULENO
  2758. LNCOUNT
  2759. LCTEXT
  2760. LCOBJECTNAME
  2761. LNOBJECTCOUNT
  2762. LNPROPERTYATPOS
  2763. LNNAMEATPOS
  2764. LNATPOS
  2765. LNOCCURANCE
  2766. LNSTARTPOS
  2767. LNENDPOS
  2768. LCPROPERTIES    
  2769. LCMEMBERS
  2770. LCMEMBER    
  2771. LCOLDEXPR    
  2772. LCNEWEXPR
  2773. LCPROPERTY
  2774. LCVALUE
  2775. LCCONDITION
  2776. LCFILES
  2777. LLEXCLUDEFILES    
  2778. LCCLASSES
  2779. LLEXCLUDECLASSES
  2780. LLOVERRIDEPROPERTYDEFAULTS    
  2781. LAOBJECTS
  2782. TRIMPATH    
  2783. CFILENAME
  2784. OBJNAME
  2785. CLASS    
  2786. BASECLASS
  2787. PARENT
  2788. NRULECOUNT
  2789. ARULES
  2790. GETRULE
  2791. ARULE
  2792. LOVERRIDEPROPERTYDEFAULTS
  2793. WILDCARDMATCH
  2794. FORMATVALUE
  2795. PROPERTIES    
  2796. RESERVED3
  2797. LERROR
  2798. LCREATELOGONLY
  2799. ADDTEXT
  2800. ShowMsgBoxg
  2801. FileNotFoundMsg
  2802. WildCardMatch
  2803. TrimPath
  2804. TrimExtW
  2805. Error
  2806. FormatValue
  2807. DisplayMessage
  2808. NoFilesErrorMsg
  2809. ClearText
  2810. AddTextA
  2811. LogToFile
  2812. HeaderText
  2813. FooterTextQ
  2814. TitleText
  2815. UnableToProcessFileText
  2816. LineBreakTextS 
  2817. DisplayText
  2818. InitalizeRules
  2819. ProcessStartT%
  2820. ProcessEndh(
  2821. ProcessFileList
  2822. ProcessFolder
  2823. ProcessFile9,
  2824. AddFontRules
  2825. ProcessRules<B
  2826. ProcessMenuRules
  2827. ProcessReportRules
  2828. oTransformFiles
  2829. pjx|scx|vcx
  2830. LADDFONTRULES
  2831. CGETFILEEXT
  2832. CTEXT    
  2833. CFILENAME
  2834. LSEARCHSUBFOLDERS
  2835. LCREATELOGONLY
  2836. LLOGTOFILE
  2837. CLOGTOFILE
  2838. NSTARTSECONDS
  2839. NENDSECONDS
  2840. APROCESSEDFILES
  2841. NPROCESSEDFILECOUNT
  2842. NTRANSFORMEDFILECOUNT
  2843. NFILECOUNT    
  2844. AFILELIST
  2845. NRULECOUNT
  2846. ARULES    
  2847. AFILERULE
  2848. NFILERULECOUNT
  2849. LOVERRIDEPROPERTYDEFAULTS
  2850. AEXCLUDEFILESRULE
  2851. ACLASSRULE
  2852. NCLASSRULECOUNT
  2853. AEXCLUDECLASSESRULE
  2854. LLASTLOCKSCREEN
  2855. NFONTMATCHCOUNT
  2856. TransformFiles
  2857. CustombR
  2858. transfrm.vcx
  2859. transfrm.vct
  2860. transfrm.prg
  2861. d:\8146\fox60\dev\
  2862. transfrm.fxp
  2863. transfrm.ico
  2864.